home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
William Shakespeare - The Complete Works
/
William Shakespeare - The Complete Works on CD-ROM.iso
/
library
/
text
/
glossary
/
strip.bas
< prev
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
BASIC Source File
|
1994-04-20
|
230 b
|
14 lines
OPEN "glossary.txt" FOR INPUT AS #1
OPEN "glossary.wrd" FOR OUTPUT AS #2
DO
LINE INPUT #1, a$
PRINT a$
IF INSTR(a$, ",") THEN
t$ = MID$(a$, 1, INSTR(a$, ",") - 1)
PRINT t$
PRINT #2, t$
END IF
LOOP UNTIL EOF(1)
CLOSE